home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr23 / rbcom345.zip / EXAMPLES.MAC < prev    next >
Text File  |  1995-01-22  |  2KB  |  82 lines
  1. ; RBcomm macro examples
  2. ;
  3. ;   by Ralf Brown
  4.  
  5. ;---------------------------------------------------------------
  6. ; beep every half hour
  7. ;   continues until another macro file is loaded or some other binding
  8. ;   issues a CANCEL_DELAYED ALL
  9. ;
  10. F2    EVERY 1800 1800
  11.        BEEP
  12.  
  13. ;---------------------------------------------------------------
  14. ; display a running clock in the DESQview notification window
  15. ;   continues until another macro file is loaded or some other binding
  16. ;   issues a CANCEL_DELAYED ALL
  17. ;
  18. F3    MULTI
  19.     MESSAGEBOX "%t on %d"  ; var expansion is new capability added in v3.33
  20.     DELAYED 1
  21.        CALL F3
  22.      END
  23.  
  24. ;---------------------------------------------------------------
  25. ; display a time-limited message without DESQview message-box
  26. ;    note: should be on top-most row to avoid a mess if screen scrolls during
  27. ;       wait interval
  28. ;
  29. F4    MULTI
  30.     MESSAGE 0 50 "^ATimed test message (%t)"
  31.     DELAYED 3
  32.        MESSAGE 0 50 "                             "   ; same length as orig message
  33.      END
  34.  
  35. ;---------------------------------------------------------------
  36. ; repeatedly try to elicit a response from the remote system
  37. ; abort after ten minutes of no response
  38. ;
  39. F5    MULTI
  40.     DELAYED 600
  41.        ABORT_UNTIL       ; give up after ten minutes
  42.     UNTIL SUCCESS
  43.        {
  44.        TEXT "\r"
  45.        WAITFOR 2 "login:"
  46.        }
  47.     CANCEL_DELAYED LAST  ; no more need for the timed abort
  48.      END
  49.  
  50. ;---------------------------------------------------------------
  51. ;  Set up a fancy alarm for announcing the completion of a file
  52. ;  transfer (or TYPE) or successful connection with a remote system.
  53. ;
  54. ;  If the "Alarm" pseudokey is not bound, it is equivalent to
  55. ;      Alarm  BEEP
  56. ;
  57. Alarm   REPEAT 2
  58.        {
  59.        SOUND 500 1           ; quickly rising tone
  60.        SOUND 600 1
  61.        SOUND 700 1
  62.        SOUND 800 1
  63.        SOUND 900 1
  64.        SOUND 1000 1
  65.        SOUND 0 3           ; pause briefly between repetitions
  66.        }
  67.  
  68. ;---------------------------------------------------------------
  69. ;  allow sample fancy alarm to be invoked at will
  70. ;
  71. F6    ALARM
  72.  
  73. ;---------------------------------------------------------------
  74. ; notify user of any incoming calls (only for DESQview and Hayes-comp modems)
  75. ;
  76. OnLoad    WHEN 0 "RING^M"
  77.     NOTIFY "Phone is ringing"
  78.  
  79. ;---------------------------------------------------------------
  80. ; add the standard bindings which have not been overridden
  81. #include "rbcomm"
  82.